

-------------------------------------------------
-- Variaveis globais
---------------------------------------------------
	_versaoLua = "3.0-20150428"
	
	-- versao "3.0-20150428" - para correcao do erro 203 frequente @TCFM@
	
---------------------------------------------------
-- Funções e procedimentos
---------------------------------------------------
function Call_Module(Module_Name)
	echo ("<data destination=parser>\r\n")
		echo ("	dofile(\"redeuze.lua\")")
		echo ("	"..Module_Name.."()")
	echo ("</data>")
end

function Get_Params()
	
	local get = loadstring(GET)()
	Modelo_POS = get["MODEL_POS"]
	SenhaConfigInput = get["SENHA_DIGITADA"]
	url_webservice = Consulta("1")
	cd_grupo = Consulta("2")
	de_login_usu = Consulta("3")
	de_senha_usu = Consulta("4")
	cd_loja = Consulta("5")
	url_principal = Consulta("8")
	url_cliente = Consulta("9")
	senha_config = Consulta("6")
	URL_PRINCIPAL = get["URL_PRINCIPAL"]
	URL_CLIENTE = get["URL_CLIENTE"]
	URL_WEB_SERVICE	= get["URL_WEB_SERVICE"]
	URL = get["URL"]
	COD_GRUPO = get["COD_GRUPO"]
	LOGIN = get["LOGIN"]
	SENHA = get["SENHA"]
	COD_LOJA = get["COD_LOJA"]
	SENHA_CONF = get["SENHA_CONF"]
		
end

function Set_Params()

	echo("<GET TYPE=HIDDEN NAME=S VALUE=0>")
	if Modelo_POS ~= nil then
		echo("<GET TYPE=HIDDEN NAME=MODEL_POS VALUE="..Modelo_POS..">")
	end
	if SenhaConfigInput ~= nil then
		echo("<GET TYPE=HIDDEN NAME=SENHA_DIGITADA VALUE="..SenhaConfigInput..">")
	end
	if URL_PRINCIPAL ~= nil then
		echo("<GET TYPE=HIDDEN NAME=URL_PRINCIPAL VALUE="..URL_PRINCIPAL..">")
	end
	if URL_CLIENTE ~= nil then
		echo("<GET TYPE=HIDDEN NAME=URL_CLIENTE VALUE="..URL_CLIENTE..">")
	end
	if URL_WEB_SERVICE ~= nil then
		echo("<GET TYPE=HIDDEN NAME=URL_WEB_SERVICE VALUE="..URL_WEB_SERVICE..">")
	end
	if URL ~= nil then
		echo("<GET TYPE=HIDDEN NAME=URL VALUE="..URL..">")
	end
	if COD_GRUPO ~= nil then
		echo("<GET TYPE=HIDDEN NAME=COD_GRUPO VALUE="..COD_GRUPO..">")
	end
	if LOGIN ~= nil then
		echo("<GET TYPE=HIDDEN NAME=LOGIN VALUE="..LOGIN..">")
	end
	if SENHA ~= nil then
		echo("<GET TYPE=HIDDEN NAME=SENHA VALUE="..SENHA..">")
	end
	if COD_LOJA ~= nil then
		echo("<GET TYPE=HIDDEN NAME=COD_LOJA VALUE="..COD_LOJA..">")
	end
	if SENHA_CONF ~= nil then
		echo("<GET TYPE=HIDDEN NAME=SENHA_CONF VALUE="..SENHA_CONF..">")
	end
	
end

function Verifica()

	Get_Params()
	
	echo("<GET TYPE=SERIALNO NAME=SERIAL_POS>")
	echo("<GET TYPE=VERSION NAME=NAVS_VER_POS>")
	echo("<GET TYPE=OSVERSION NAME=OS_VER_POS>")
	echo("<GET TYPE=HIDDEN NAME=TIPOPERACAO VALUE=3>")
	echo("<GET TYPE=MODEL NAME=MODEL_POS>")
	echo("<GET TYPE=HIDDEN NAME=LUA_VER_POS VALUE=".._versaoLua..">")
	
	if Modelo_POS == "VX680" then
		echo("<CONSOLE>")
			echo("<BR><BR><BR><BR><BR><BR><BR><BR><BR>         Aguarde...")
		echo("</CONSOLE>")
	end		
	if Modelo_POS == "VX520" then
		echo("<CONSOLE>")
			echo("<BR><BR><BR>     Aguarde...")
		echo("</CONSOLE>")
	end
	
	echo("<POST>")
end
	
function Tela_Inicial()
		
	echo("<INIT>")
	Get_Params()
	Atualiza("7", Modelo_POS, Consulta("7"))
	if Modelo_POS == "VX680" or Modelo_POS == "VX685" then
		echo("<CONSOLE>")
			echo("<BR>ALGORIX - "..string.upper(url_cliente))
			echo("<BR>Tecnologia SKYTEF(v2.0)")
			echo("<BR>+----------------------------+<BR>")
			echo("<BR>")
			echo("<BR>Menu Inicial :")
			echo("<BR>")
			echo("<BR>  1 - Digitar CPF")
			echo("<BR>  7 - Cartao magnetico")
			echo("<BR>")
			echo("<BR>+----------------------------+")
		echo("</CONSOLE>")
	elseif Modelo_POS == "VX520" then
		echo("<GET TYPE=DATETIME NAME=HORA_POS>")
		echo("<GET TYPE=SERIALNO NAME=SERIAL_POS>")
		echo("<GET TYPE=VERSION NAME=NAVS_VER_POS>")
		echo("<GET TYPE=OSVERSION NAME=OS_VER_POS>")
		
		echo("<CONSOLE>")
			echo("<BR>"..string.upper(url_cliente).."-SKYTEF(v3.0)")
			echo("<BR>+-------------------+")
			echo("<BR>Menu Inicial :")
			echo("<BR>  1-Digitar CPF")
			echo("<BR>  7-Cartao magnetico")
			echo("<BR>+-------------------+")
		echo("</CONSOLE>")
	end
	
	echo("<GET TYPE=FIELD SIZE=1 COL=1 LIN=40 NAME=OPC NOENTER=1>")
	
	Set_Params()
	Call_Module("TrataEscolha")
	
end


function TrataEscolha()

	Get_Params()
	
	if opcao == "1" then
		-- Digitar CPF :
		if Modelo_POS == "VX680" or Modelo_POS == "VX685" then
		
			echo("<CONSOLE>")
			echo("<BR>ALGORIX - "..string.upper(url_cliente))
			echo("<BR>Tecnologia SKYTEF(v3.0)")
			echo("<BR>+----------------------------+<BR>")
			echo("<BR>")
			echo("<BR>")
			echo("<BR>")
			echo("<BR>   Digite o CPF..")
			echo("</CONSOLE>")
			echo("<GET TYPE=CPF NAME=CPF_CARTAO ALPHA=1 COL=5 LIN=13>")
			
			echo("<CONSOLE>")
			echo("<BR>ALGORIX - "..string.upper(url_cliente))
			echo("<BR>Tecnologia SKYTEF(v3.0)")
			echo("<BR>+----------------------------+<BR>")
			echo("<BR>")
			echo("<BR>")
			echo("     Por favor, aguarde.<BR><BR>")
			echo("       Processando...<BR><BR>")
			echo("</CONSOLE>")
			
		elseif Modelo_POS == "VX520" then
		
			echo("<CONSOLE>")
				echo("<BR>"..string.upper(url_cliente).."-SKYTEF(v3.0)")
				echo("<BR>+-------------------+")
				echo("<BR>Digite o CPF.. ")
				echo("<BR>")
				echo("<BR>")
				echo("<BR>+-------------------+")
			echo("</CONSOLE>")
			echo("<GET TYPE=CPF NAME=CPF COL=1 LIN=5>")
			
			echo("<CONSOLE>")
				echo("<BR>"..string.upper(url_cliente).."-SKYTEF(v3.0)")
				echo("<BR>+-------------------+")
				echo("<BR>Por favor, aguarde.")
				echo("<BR>Processando...")
				echo("<BR>")
				echo("<BR>+-------------------+")
			echo("</CONSOLE>")
			
		end
		
		-- envia variáveis:
		-- url_principal, url_cliente, url_webservice, cd_grupo, de_login_usu, de_senha_usu, cd_loja
		echo("<GET TYPE=HIDDEN NAME=url_principal VALUE="..url_principal..">")
		echo("<GET TYPE=HIDDEN NAME=url_cliente VALUE="..url_cliente..">")
		echo("<GET TYPE=HIDDEN NAME=url_webservice VALUE="..url_webservice..">")		
		echo("<GET TYPE=HIDDEN NAME=url_webservice VALUE="..url_webservice..">")
		echo("<GET TYPE=HIDDEN NAME=cd_grupo VALUE="..cd_grupo..">")
		echo("<GET TYPE=HIDDEN NAME=de_login_usu VALUE="..de_login_usu..">")
		echo("<GET TYPE=HIDDEN NAME=de_senha_usu VALUE="..de_senha_usu..">")
		echo("<GET TYPE=HIDDEN NAME=cd_loja VALUE="..cd_loja..">")
		echo("<GET TYPE=HIDDEN NAME=modelo_pos VALUE="..Modelo_POS..">")
		echo("<GET TYPE=HIDDEN NAME=TELA VALUE=1>")
		echo("<GET TYPE=DATETIME NAME=HORA_POS>")
		echo("<GET TYPE=SERIALNO NAME=SERIAL_POS>")
		echo("<GET TYPE=HIDDEN NAME=LUA_VER_POS VALUE=".._versaoLua..">")
		echo("<GET TYPE=VERSION NAME=NAVS_VER_POS>")
		echo("<GET TYPE=OSVERSION NAME=OS_VER_POS>")
		echo("<GET TYPE=HIDDEN NAME=TIPOPERACAO VALUE=1>")
		echo("<POST>")
		
	elseif opcao == "7" then
	
		-- Cartao magnetico :
		if Modelo_POS == "VX680" or Modelo_POS == "VX685" then
			echo("<CONSOLE>")
				echo("<BR>ALGORIX - "..string.upper(url_cliente))
				echo("<BR>Tecnologia SKYTEF(v3.0)")
				echo("<BR>+----------------------------+<BR>")
				echo("<BR>")
				echo("<BR>")
				echo("<BR>")
				echo("<BR>")
				echo("  Digite ou passe o cartão..")
			echo("</CONSOLE>")
			echo("<CAPTURE NAME=CARD>")
				echo("<GET TYPE=FIELD ALPHA=1 SIZE=19 COL=3 LIN=13>")
				echo("<GET TYPE=CARD TRACKS=2>")
			echo("</CAPTURE>")
			
			echo("<CONSOLE>")
				echo("<BR>ALGORIX - "..string.upper(url_cliente))
				echo("<BR>Tecnologia SKYTEF(v3.0)")
				echo("<BR>+----------------------------+<BR>")
				echo("<BR>")
				echo("<BR>")
				echo("     Por favor, aguarde.<BR><BR>")
				echo("       Processando...<BR><BR>")
			echo("</CONSOLE>")
			
		elseif Modelo_POS == "VX520" then
		
			echo("<CONSOLE>")
				echo("<BR>"..string.upper(url_cliente).."-SKYTEF(v3.0)")
				echo("<BR>+-------------------+")
				echo("<BR> Digite ou passe o")
				echo("<BR>      cartão.")
				echo("<BR>")
				echo("<BR>+-------------------+")
			echo("</CONSOLE>")
			echo("<CAPTURE NAME=CARD>")
				echo("<GET TYPE=FIELD ALPHA=1 SIZE=19 COL=1 LIN=6>")
				echo("<GET TYPE=CARD TRACKS=2>")
			echo("</CAPTURE>")
			
			echo("<CONSOLE>")
				echo("<BR>"..string.upper(url_cliente).."-SKYTEF(v3.0)")
				echo("<BR>+-------------------+")
				echo("<BR> Por favor, aguarde.")
				echo("<BR>   Processando...")
				echo("<BR>")
				echo("<BR>+-------------------+")
			echo("</CONSOLE>")
			
		end
		
		-- envia variáveis:
		-- url_principal, url_cliente, url_webservice, cd_grupo, de_login_usu, de_senha_usu, cd_loja
		echo("<GET TYPE=HIDDEN NAME=url_principal VALUE="..url_principal..">")
		echo("<GET TYPE=HIDDEN NAME=url_cliente VALUE="..url_cliente..">")
		echo("<GET TYPE=HIDDEN NAME=url_webservice VALUE="..url_webservice..">")		
		echo("<GET TYPE=HIDDEN NAME=url_webservice VALUE="..url_webservice..">")
		echo("<GET TYPE=HIDDEN NAME=cd_grupo VALUE="..cd_grupo..">")
		echo("<GET TYPE=HIDDEN NAME=de_login_usu VALUE="..de_login_usu..">")
		echo("<GET TYPE=HIDDEN NAME=de_senha_usu VALUE="..de_senha_usu..">")
		echo("<GET TYPE=HIDDEN NAME=cd_loja VALUE="..cd_loja..">")
		echo("<GET TYPE=HIDDEN NAME=modelo_pos VALUE="..Modelo_POS..">")
		echo("<GET TYPE=HIDDEN NAME=TELA VALUE=1>")
		echo("<GET TYPE=DATETIME NAME=HORA_POS>")
		echo("<GET TYPE=SERIALNO NAME=SERIAL_POS>")
		echo("<GET TYPE=HIDDEN NAME=LUA_VER_POS VALUE=".._versaoLua..">")
		echo("<GET TYPE=VERSION NAME=NAVS_VER_POS>")
		echo("<GET TYPE=OSVERSION NAME=OS_VER_POS>")
		echo("<GET TYPE=HIDDEN NAME=TIPOPERACAO VALUE=7>")
		echo("<POST>")
		
	elseif opcao == "9" then
		-- Configurações :
		-- pede senha :
		if Modelo_POS == "VX680" or Modelo_POS == "VX685" then
			echo("<CONSOLE>")
				echo("<BR><BR><BR><BR><BR><BR><BR>       DIGITE A SENHA :")
			echo("</CONSOLE>")
			echo("<GET TYPE=PASS NAME=SENHA_DIGITADA SIZE=20 COL=5 LIN=10>")
		end		
		if Modelo_POS == "VX520" then
			echo("<CONSOLE>")
				echo("<BR>  DIGITE A SENHA :")
			echo("</CONSOLE>")
			echo("<GET TYPE=PASS NAME=SENHA_DIGITADA SIZE=20 COL=7 LIN=4>")
		end		
		SenhaConfigInput = nil		
		Set_Params()
		Call_Module("Trata_Menu_Config")
	else
		-- opcao invalida !!!
		if Modelo_POS == "VX680" or Modelo_POS == "VX685" then
			echo("<CONSOLE>")
				echo("<BR><BR><BR><BR><BR><BR><BR><BR><BR>       OPCAO INVALIDA !")
			echo("</CONSOLE>")
		end		
		if Modelo_POS == "VX520" then
			echo("<CONSOLE>")
				echo("<BR><BR><BR>  OPCAO INVALIDA !")
			echo("</CONSOLE>")
		end
		Set_Params()
		Call_Module("Tela_Inicial")
	end
	
end



-----------------------------------------------------------------------


function Trata_Menu_Config()

	Get_Params()
		
	-- confere e executa os procedimentos
	if senha_config == SenhaConfigInput then
	
		if Modelo_POS == "VX680" then
		
			echo("<CONSOLE>")
				echo("------------------------------<BR>")
				echo(" Configuracao para WebService <BR>")
				echo("------------------------------<BR>")
				echo("     - Url do Web Service     <BR><BR>")
				echo("Url Principal:<BR>Atual:"..url_principal.."<BR><BR><BR>")
				echo("Url Cliente:<BR>Atual:"..url_cliente.."<BR><BR><BR>")
				echo("Url web service:<BR>Atual:"..url_webservice.."<BR><BR><BR>")
			echo("</CONSOLE>")
			-- colocou msg na tela e aguarda edicao dos campos
			echo("<GET TYPE=FIELD ALPHA=1 NAME=URL_PRINCIPAL SIZE=40 COL=0 LIN=8 NOENTER=0>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=URL_CLIENTE SIZE=40 COL=0 LIN=12 NOENTER=0>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=URL_WEB_SERVICE SIZE=40 COL=0 LIN=16 NOENTER=0>")
		
			echo("<CONSOLE>")
				echo("------------------------------<BR>")
				echo(" Configuracao para WebService <BR>")
				echo("------------------------------<BR>")
				echo("          - Outros :          <BR>")
				echo("Codigo Grupo:<BR>Atual:"..cd_grupo.."<BR><BR>")
				echo("Login usuario:<BR>Atual:"..de_login_usu.."<BR><BR>")
				echo("Senha usuario:<BR>Atual:"..de_senha_usu.."<BR><BR>")
				echo("Codigo Loja:<BR>Atual:"..cd_loja.."<BR><BR>")
				echo("Senha de Configuracao:<BR>Atual:"..senha_config.."<BR>")
			echo("</CONSOLE>")
			
			-- colocou msg na tela e aguarda edicao dos campos
			echo("<GET TYPE=FIELD ALPHA=1 NAME=COD_GRUPO SIZE=30 COL=0 LIN=7 NOENTER=0>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=LOGIN SIZE=30 COL=0 LIN=10 NOENTER=0>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=SENHA SIZE=30 COL=0 LIN=13 NOENTER=0>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=COD_LOJA SIZE=30 COL=0 LIN=16 NOENTER=0>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=SENHA_CONF SIZE=30 COL=0 LIN=19 NOENTER=0>")
			
		elseif Modelo_POS == "VX520" then
		
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Url Principal:<BR>")
				echo("Atual:"..url_principal.."<BR>")
			echo("</CONSOLE>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=URL_PRINCIPAL SIZE=40 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Url Cliente:<BR>")
				echo("Atual:"..url_cliente.."<BR>")
			echo("</CONSOLE>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=URL_CLIENTE SIZE=40 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Url web service:<BR>")
				echo("Atual:"..url_webservice.."<BR>")
			echo("</CONSOLE>")
			echo("<GET TYPE=FIELD ALPHA=1 NAME=URL_WEB_SERVICE SIZE=40 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Codigo Grupo:<BR>")
				echo("Atual:"..cd_grupo.."<BR>")
			echo("</CONSOLE>")			
			echo("<GET TYPE=FIELD ALPHA=1 NAME=COD_GRUPO SIZE=30 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Login usuario:<BR>")
				echo("Atual:"..de_login_usu.."<BR>")
			echo("</CONSOLE>")			
			echo("<GET TYPE=FIELD ALPHA=1 NAME=LOGIN SIZE=30 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Senha usuario:<BR>")
				echo("Atual:"..de_senha_usu.."<BR>")
			echo("</CONSOLE>")			
			echo("<GET TYPE=FIELD ALPHA=1 NAME=SENHA SIZE=30 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Codigo Loja:<BR>")
				echo("Atual:"..cd_loja.."<BR>")
			echo("</CONSOLE>")			
			echo("<GET TYPE=FIELD ALPHA=1 NAME=COD_LOJA SIZE=30 COL=0 LIN=5>")
			
			echo("<CONSOLE>")
				echo("  Config. WebService <BR>")
				echo("---------------------<BR>")
				echo("Senha de Config.:<BR>")
				echo("Atual:"..senha_config.."<BR>")
			echo("</CONSOLE>")			
			echo("<GET TYPE=FIELD ALPHA=1 NAME=SENHA_CONF SIZE=30 COL=0 LIN=5>")

		end
		Set_Params()
		Call_Module("Atualiza_Config")
	else
		if Modelo_POS == "VX680" then
			echo("<CONSOLE>")
				echo("<BR><BR><BR><BR><BR><BR><BR><BR>      SENHA INCORRETA !<BR>")
				echo("<BR>     Pressione   Cancela     ")
				echo("<BR>         Para  Voltar        ")
				echo("<BR>             ....            ")
			echo("</CONSOLE>")
			echo("GET TYPE=ANYKEY")
		end		
		if Modelo_POS == "VX520" then
			echo("<CONSOLE>")
				echo("<BR>  SENHA INCORRETA !<BR>")
				echo("<BR> Pressione   Cancela")
				echo("<BR>    Para  Voltar")
				echo("<BR>        ....")
			echo("</CONSOLE>")
			echo("GET TYPE=ANYKEY")
		end			
	end
end

function Atualiza_Config()
	
	local URL_PRINCIPAL
	local URL_CLIENTE
	local URL_WEB_SERVICE
	local COD_GRUPO
	local LOGIN
	local SENHA
	local COD_LOJA
	local Modelo_POS

	Get_Params()	
	URL_WEB_SERVICE = Preenche_Valor(URL_WEB_SERVICE, "1")
	URL_PRINCIPAL = Preenche_Valor(URL_PRINCIPAL, "8")
	URL_CLIENTE = Preenche_Valor(URL_CLIENTE, "9")
	COD_GRUPO = Preenche_Valor(COD_GRUPO, "2")
	LOGIN = Preenche_Valor(LOGIN, "3")
	SENHA = Preenche_Valor(SENHA, "4")
	COD_LOJA = Preenche_Valor(COD_LOJA, "5")
	SENHA_CONF = Preenche_Valor(SENHA_CONF, "6")	
	
	-- Avisa que transacao ocorreu com sucesso:
	if Modelo_POS == "VX680" then
		echo("<CONSOLE>")
			echo("<BR><BR><BR><BR><BR><BR>")
			echo(" Dados gravados com sucesso !<BR><BR>")
			echo("<BR>Para Continuar Pressine Enter!")
		echo("</CONSOLE>")
	end		
	if Modelo_POS == "VX520" then
		echo("<CONSOLE>")
			echo("<BR>")
			echo("  Dados gravados com <BR>")
			echo("      sucesso !      <BR><BR>")
			echo("    Para Continuar   <BR>")
			echo("   Pressine Enter!   ")
		echo("</CONSOLE>")
	end	
	echo("<GET TYPE=ANYKEY>")
	
	echo("<GET TYPE=HIDDEN NAME=url_principal VALUE="..URL_PRINCIPAL..">")
	echo("<GET TYPE=HIDDEN NAME=url_cliente VALUE="..URL_CLIENTE..">")
	echo("<GET TYPE=HIDDEN NAME=url_webservice VALUE="..URL_WEB_SERVICE..">")
	echo("<GET TYPE=HIDDEN NAME=cd_grupo VALUE="..COD_GRUPO..">")
	echo("<GET TYPE=HIDDEN NAME=de_login_usu VALUE="..LOGIN..">")
	echo("<GET TYPE=HIDDEN NAME=de_senha_usu VALUE="..SENHA..">")
	echo("<GET TYPE=HIDDEN NAME=cd_loja VALUE="..COD_LOJA..">")
	echo("<GET TYPE=HIDDEN NAME=modelo_pos VALUE="..Modelo_POS..">")
	
	-- url_principal, url_cliente, url_webservice, cd_grupo, de_login_usu, de_senha_usu, cd_loja
	echo("<get type=hidden name=TELA value=1>")
	
	if Modelo_POS == "VX680" then
		echo("<CONSOLE>")
			echo("<BR><BR><BR><BR><BR><BR><BR><BR><BR>         Aguarde...")
		echo("</CONSOLE>")
	end		
	if Modelo_POS == "VX520" then
		echo("<CONSOLE>")
			echo("<BR><BR><BR>     Aguarde...")
		echo("</CONSOLE>")
	end
	
	Set_Params()
	Call_Module("Tela_Inicial")
	
end

function Atualiza(id_Item, Value, Old_Value)

	-- identifica o elemento a ser atualizado:
	local Identificador = ObtemIdentificador(id_Item)
	
	-- deleta:
	local db_del      = sqlite3.open('rUse.db')
	local stmt_del	  = db_del:prepare("delete from "..Identificador.." where Valor = ?")
	local bind_rc_del = stmt_del:bind_values(Old_Value)
	local rc_del      = stmt_del:step()
	stmt_del:finalize()
	
	-- insere:
	local db_add      = sqlite3.open('rUse.db')
	local stmt_add 	  = db_add:prepare("insert into "..Identificador.."(Valor) VALUES (?)")
	local bind_rc_add = stmt_add:bind_values(Value)
	local rc_add	  = stmt_add:step()
	stmt_add:finalize()
	
end

function Consulta(id_Item)

	-- identifica o elemento a ser consultado:
	local Identificador = ObtemIdentificador(id_Item)
	
	-- faz a consulta no banco:
	local db = sqlite3.open('rUse.db')
	local stmt = db:prepare("select Valor from "..Identificador)
	local rc = stmt:step()
	
	while (rc == sqlite3.ROW) do
		local v = stmt:get_values()		
		ValorConsultado = v[1]		
		rc = stmt:step()
	end
	stmt:finalize()	
	return ValorConsultado
	
end

function ObtemIdentificador(ID)

	local Identificador

	if ID == "1" then
		Identificador = "url_webservice"
	end
	if ID == "2" then
		Identificador = "cd_grupo"
	end
	if ID == "3" then
		Identificador = "de_login_usu"
	end
	if ID == "4" then
		Identificador = "de_senha_usu"
	end
	if ID == "5" then
		Identificador = "cd_loja"
	end
	if ID == "6" then
		Identificador = "senha_config"
	end
	if ID == "7" then
		Identificador = "modelo_pos"
	end
	if ID == "8" then
		Identificador = "url_principal"
	end
	if ID == "9" then
		Identificador = "url_cliente"
	end
	
	return Identificador	
end

function Preenche_Valor(Variable, ID)

	local Variable_final
	local Variable_cmp

	--[[
	if Variable ~= nil then
		Atualiza(ID, Variable, Consulta(ID))
	else
		Variable = Consulta(ID)
	end
	]]--
	
	-- ajuste tecnico criativo para resolver 
	-- o problema de nao funcionamento
	-- do trecho acima comentado.
	
	Variable_cmp = Variable..":"
	if Variable_cmp ~= ":" then
		Atualiza(ID, Variable, Consulta(ID))
	end	
	
	Variable_final = Consulta(ID)
	
	--[[
	echo("<CONSOLE>")
		echo("Variable:"..Variable.."<BR>")
		echo("ID:"..ID.."<BR>")
		echo("Variable_cmp:"..Variable_cmp.."<BR>")
		echo("Variable_final:"..Variable_final.."<BR>")
	echo("</CONSOLE>")
	echo("<GET TYPE=ANYKEY>")
	]]--
	
	return Variable_final
end

